home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / screen test.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  725b  |  32 lines
  1. 1 PRINT"[147]":POKE53280,0:POKE53281,0:PRINT"[158]"
  2. 2 PRINT"****************************************";
  3. 5 PRINT"COLORS","BORDER","SCREEN","LETTERS"
  4. 6 PRINT"****************************************";
  5. 7 PRINT"BLACK",0,0,144
  6. 8 PRINT"WHITE",1,1,5
  7. 9 PRINT"RED",2,2,28
  8. 10 PRINT"CYAN",3,3,159
  9. 11 PRINT"PURPLE",4,4,156
  10. 12 PRINT"GREEN",5,5,30
  11. 13 PRINT"BLUE",6,6,31
  12. 14 PRINT"YELLOW",7,7,158
  13. 15 PRINT"ORANGE",8,8
  14. 16 PRINT"BROWN",9,9
  15. 17 PRINT"LT RED",10,10
  16. 18 PRINT"GREY 1",11,11
  17. 19 PRINT"GREY 2",12,12
  18. 20 PRINT"LT GREEN",13,13
  19. 21 PRINT"LT BLUE",14,14
  20. 22 PRINT"GREY 3",15,15
  21. 23 PRINT"****************************************"
  22. 25 INPUT"BORDER COLOR";A
  23. 26 INPUT"SCREEN COLOR";B
  24. 27 INPUT"LETTER COLOR";C
  25. 30 PRINT"[147]":POKE53280,A:POKE53281,B:PRINTCHR$(C)
  26. 35 FORI=1TO7
  27. 40 PRINT"1234567890+-\QWERTYUIOPASDFGHJKL:;"
  28. 45 PRINT:PRINT
  29. 50 NEXTI
  30. 60 INPUTX$
  31. 70 GOTO1
  32.